home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 007a / 899track.zip / 899GLOB.PRO < prev    next >
Text File  |  1990-03-06  |  5KB  |  93 lines
  1. /*
  2.    This is the WTHS record thing for joel a.
  3.     AUTHOR : Jovo John Filipovich (Engr. 1987 to 1990?)
  4.     DATE : Start - October 2, 1989;  Finished - 
  5. */
  6. CONSTANTS
  7.   db_file_name      = "899LDAT.DBA"
  8.   single_line_frame = "\218\191\192\217\196\179"  % single line frame
  9.   double_line_frame = "\201\187\200\188\205\186"  % double line frame
  10.   center_title      = -1                          % center the window title
  11.   clear_window      = 1
  12.   EDIT_TITLE        = " Editor "
  13.   terminate         = "<< end of information >>"
  14.   BLACK             = 0
  15.   GRAY              = 8
  16.   BLUE              = 1
  17.   BRIGHT_BLUE       = 9
  18.   GREEN             = 2
  19.   BRIGHT_GREEN      = 10
  20.   CYAN              = 3
  21.   BRIGHT_CYAN       = 11
  22.   RED               = 4
  23.   BRIGHT_RED        = 12
  24.   MAGENTA           = 5
  25.   BRIGHT_MAGENTA    = 13
  26.   BROWN             = 6
  27.   YELLOW            = 14
  28.   WHITE             = 7
  29.   BRIGHT_WHITE      = 15
  30.   B_BLACK           = 0
  31.   B_BLUE            = 16
  32.   B_GREEN           = 32
  33.   B_CYAN            = 48
  34.   B_RED             = 64
  35.   B_MAGENTA         = 80
  36.   B_BROWN           = 96
  37.   B_WHITE           = 112
  38.   BLINK             = 128
  39.  
  40. GLOBAL DOMAINS
  41.   gs = STRING
  42.   gsList = STRING*
  43.  
  44.   key = cr  ; esc; break; tab ; btab ; del  ;
  45.         bdel; ins; end  ; home; num(INTEGER);
  46.         fkey(INTEGER); up; down; left; right;
  47.         char(CHAR)   ; pgup ; pgdn   ; other ;
  48.         ctrl_bdel
  49.   keylist, ValidKeyPress = key*
  50.  
  51.  
  52. GLOBAL DATABASE
  53.   category(gs).    % Like METAL or PROGRESSIVE
  54.   label(gsList,gs,gsList,gs,gs,gs,gs,gsList)
  55.   % label (Category,ContactName,AddressInfo,City,State,Zip,Comments)
  56.   determ datamodified    % Exists if data was modified
  57.   
  58. GLOBAL PREDICATES
  59.   determ    openbase                               % Opens and reads the database into memory
  60.   determ    clbase                                 % Closes the database
  61.   nondeterm repeat                                 % The Repeat clause
  62.   determ    up_case(CHAR,CHAR)           - (i,o)   % Converts a char to upper case
  63.   determ    wait                                   % waits for user to press enter
  64.   determ    getkey(key,keylist)          - (o,i)   % This is what the program uses for kbd
  65.   determ    readkey(key)                 - (o)     % Reads a key press and returns the key
  66.   determ    change_window_title(STRING)  - (i)     % Change window to this title
  67.   determ    inverse(INTEGER,INTEGER)     - (i,o)   % Reverse video attributes
  68.   determ    getMusicTypes(gsList)        - (o)     % Gets the list of all music types
  69.   determ    getLabelNames(gsList)        - (o)     % Gets all the label names
  70.   determ    showerr(STRING)              - (i)     % Makes an error window and delays
  71.   determ    message(STRING)              - (i)     % Prints message and leaves
  72.   nondeterm getIntOpt(INTEGER,INTEGER,INTEGER) - (i,i,o) % Gets an integer option
  73.   determ    writeToEol(CHAR)             - (i)
  74.   determ    askyn                                  % Fails on N, succeeds on Y
  75.   determ    bep                                    % Beeps a new beep
  76.   determ    getCorrelating(gs,gsList)    - (i,o) % for given type, get list of names
  77.   nondeterm show_get(gsList,gs,gs)       - (i,o,i) % Screen get/show -- W title
  78.   determ    maxlen(gsList,INTEGER,INTEGER) - (i,i,o) % Finds the longest string length in a list
  79.   determ    listlen(gsList,INTEGER)      - (i,o)   % Number of items in list
  80.   determ    expgsList(gs,gsList,gsList)  - (i,i,o) % Deletes from list to new list
  81.   determ    modifdat                               % Modify Data
  82.   nondeterm edit_setup(gsList,gs)        - (i,i)   % Comments edit setup and sets title
  83.   determ    edit_setdown(gsList)         - (o)     % Comments edit destructive kill
  84.   determ    edit_retrieve(gsList)        - (o)     % Comments retrieve (nondestructive)
  85.   nondeterm edit_descr                             % the main editor which assumes things are set up
  86.   determ    modspecs(dbasedom,dbasedom)  - (i,o)   % Modifies or created new DB objects
  87.   determ    sameMusicCategory(gs,gsList) - (i,i)   % test for same
  88.   determ    writelist(gsList,INTEGER)    - (i,i)   % Write's each elem to stdout indenting
  89.   determ    writespaces(INTEGER)         - (i)     % Spaces to stdout
  90.   determ    sheet_print                            % Prints a simple list of database
  91.   determ    label_print                            % Prints DB as labels
  92.   determ    fixup(gs,gs)                 - (i,o)   language asm
  93.